home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / solidQuadrics / SolidSphere2.wwModel / initialDefines.eve next >
Encoding:
Text File  |  1995-03-22  |  1.0 KB  |  35 lines
  1. set sphere(color) {1.0 0.0 0.0}
  2. set sphere(radius) 1.0
  3. EveCmd {set sphere(zMin) -$sphere(radius)}
  4. EveCmd {set sphere(zMax) $sphere(radius)}
  5.  
  6. set sphere(thetaMax) 360.0
  7.  
  8. set sphere(volumePreservingScaleFactor) 1.0
  9.  
  10. EveCmd {set sphere(xScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  11. EveCmd {set sphere(yScale) $sphere(volumePreservingScaleFactor)}
  12. EveCmd {set sphere(zScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  13.  
  14. set sphere(xTranslate) 0
  15. set sphere(yTranslate) 0
  16. set sphere(zTranslate) 0
  17. set sphere(xRotate) 0
  18. set sphere(yRotate) 0
  19. set sphere(zRotate) 0
  20.  
  21. EveCmd {set sphere(innerX) [expr {$sphere(radius) * cos(radians($sphere(thetaMax)))}]}
  22. EveCmd {set sphere(innerY) [expr {$sphere(radius) * sin(radians($sphere(thetaMax)))}]}
  23.  
  24. proc drawInsideAndCaps {thetaMax zMin zMax radius innerX innerY} { 
  25.   if {int($thetaMax) && [expr int($thetaMax)] % 360} \
  26.   {  TransformBegin
  27.        Rotate -90 0 1 0
  28.        Rotate -90 1 0 0 
  29.        Disk 0 $radius 180
  30.        Rotate $thetaMax 1 0 0 
  31.        Disk 0 $radius 180
  32.      TransformEnd
  33.   } {}
  34. }
  35.